Imports Sys = System

Namespace Enhancements.Core.Logging
    ''' <summary>A type that aggregates data concerning exceptions generation.</summary>
    Public NotInheritable Class ExceptionOccurredEventArgs

        Friend Sub New(ByVal _exception As Sys.Exception)
            Exception = _exception
        End Sub

        Private __Exception As System.Exception = Nothing
        ''' <summary>Gets the exception generated.</summary>
        Public Property Exception() As System.Exception
            Get
                Return __Exception
            End Get
            Private Set(ByVal _value As System.Exception)
                __Exception = _value
            End Set
        End Property

    End Class
End Namespace
